home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / f2c / may_5_92.lha / f2c.VMay_5_1992 / libF77 / ef1asc_.c < prev    next >
C/C++ Source or Header  |  1992-05-07  |  286b  |  16 lines
  1. /* EFL support routine to copy string b to string a */
  2.  
  3. #include "f2c.h"
  4.  
  5. extern VOID s_copy();
  6.  
  7. #define M    ( (long) (sizeof(long) - 1) )
  8. #define EVEN(x)    ( ( (x)+ M) & (~M) )
  9.  
  10. VOID ef1asc_(a, la, b, lb)
  11. ftnint *a, *b;
  12. ftnlen *la, *lb;
  13. {
  14. s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  15. }
  16.